﻿Namespace Extension

    Public Class OpenUriEventArgs
        Inherits EventArgs

        Public Sub New(ByVal uri As Uri)
            _Uri = New Uri(uri.ToString)
        End Sub

        Private _Uri As Uri
        ''' <summary>
        ''' Webブラウザで開くURI
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property Uri() As Uri
            Get
                Return _Uri
            End Get
        End Property
    End Class

End Namespace
